;:rem open4,8,15,"s:hardcopy":close4
;:rem open1,8,2,"hardcopy,p,w
;:sys36864;** version number 4
;;.opt o1
	*= $402
pattern	=$c139
tbox	=$c19f
mouseon	=$c18a
icon	=$c15a
grmem	=$a000
printchar	=$c145
input	=$c1ba
a	=2
b	=a+1
r1	=4
r2	=6
r3	=8
r4	=10
r5	=12
r6	=14
konf	=1
r7	=16
r8	=18
r9	=20
r10	=22
r11	=24
keyvec	=$84a3
;ra =$d020
divwowo	=$c169
desktop	=$c23e
menueon	=$c151
freemenue	=$c193
tprint	=$c1ae
save	=$c1ed
recappend	=$c289
print	=$c148
killrec	=$c283
setrecord	=$c280
maxrec	=$8497
page	=$2f
rec	=$c127
trec	=$c1a2
clrmouse	=$c19b
clrallmen	=$c157
geos	=$c25f
open	=$ffc0
setpar	=$ffba
setnam	=$ffbd
chkout	=$ffc9
clrchn	=$ffcc
close	=$ffc3
bsout	=$ffd2
return	=$aad7
	lda 56334
	pha
	jsr oldkonf
	lda #0
	sta 56334
	lda #4
	tax
	ldy #0
	jsr setpar
	tya
	jsr setnam
	jsr open
	ldx #4
	jsr chkout
	lda #-1
	sta mask
	lda #7
	sta use
	lda #28
	sta flg
	lda #0
	sta zwis
sev1	lda #40
	sta flg2
	ldx #4
sev11	lda sevtab,x
	jsr bsout
	dex
	bpl sev11
	lda #0
	sta xk
	sta xk+1
sev2	lda zwis
	sta yk
	lda #0
	sta use+1
sev3	lda xk
	ldx xk+1
	ldy yk
	jsr hposn
	ldy #0
	jsr get
	ldx use+1
	sta buffer,x
	inc yk
	inx
	stx use+1
	cpx use
	bne sev3
	lda #0
	ldy #7
sev4	ldx use
	inc ra
sev5	asl buffer,x
	rol
	dex
	bpl sev5
	and mask
	ora #$80
	jsr bsout
	dey
	bpl sev4
	lda xk
	clc
	adc #8
	sta xk
	bcc sev6
	inc xk+1
sev6	dec flg2
	bne sev2
	jsr return
	lda zwis
	clc
	adc #7
	sta zwis
	dec flg
	beq sev81
sev8	inc ra
	jmp sev1
sev81	lda #4
	cmp use
	beq sev7
	sta use
	lda #1
	sta flg
	lda #$f
	sta mask
	bne sev8
sev7	lda #15
	jsr bsout
	jsr clrchn
	lda #4
	jsr close
	jsr geos
	jsr pflaster
	pla
	sta 56334
	jmp desktop
hposn	sta qxk
	stx qxk+1
	tya
	lsr
	lsr
	lsr
	tax
	lda mulh,x
	sta b
	txa
	and #3
	tax
	lda mull,x
	sta a
	tya
	and #7
	clc
	adc a
	sta a
	lda qxk
	and #$f8
	sta offx
	lda #>grmem
	ora b
	sta b
	clc
	lda a
	adc offx
	sta a
	lda b
	adc qxk+1
	sta b
	rts
get	ldx konf
	lda #48
	sei
	sta konf
	lda (a),y
	stx konf
	cli
	rts
rucksack	lda #55
	sta 50381
	ldx #2
ru	lda sackp,x
	sta 50400,x
	dex
	bpl ru
	lda #49
	sta 50412
	lda #234
	sta 50407
	rts
sackp	nop
	nop
	nop
pfl	sta 56333
pflaster	lda #54
	sta 50381
	ldx #2
pf	lda pfl,x
	sta 50400,x
	dex
	bpl pf
	lda #66
	sta 50412
	lda #197
	sta 50407
	rts
oldkonf	php
	pla
	sta 34910
	sei
	lda 1
	sta 34912
	lda #55
	sta 1
	lda 53274
	sta 34911
	lda #0
	sta 53274
	lda #127
	sta 53273
	lda #49
	sta 788
	lda #234
	sta 789
	lda #197
	sta 793
	lda #71
	sta 792
	lda #63
	sta 56578
	lda #1
	sta 56580
	lda #0
	sta 56581
	lda #129
	sta 56589
	lda #9
	sta 56590
	lda 53269
	sta 34913
	lda #0
	sta 53269
	ldy #44
ec	lda 53266
	cmp 143
	beq ec
	sta 143
	dey
	bne ec
	lda 56576
	and #7
	sta 142
	sta 34919
	ora #48
	sta 143
	lda 142
	ora #16
	sta 34920
	rts
use	.word 0
mask	brk
flg2	brk
xk	.word 0
zwis	brk
flg	brk
yk	brk
qxk	.word 0
qyk	brk
offx	brk
sevtab	.byt 80,0,16,27,8
buffer	.word 0,0,0,0
mulh	.byt 0,1,2,3,5,6,7,8,10,11,12,13,15,16,17,18,20,21
	.byt 22,23,25,26,27,28,30,31
mull	.byt 0,$40,$80,$c0